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uyatity (IDENT = 'V04-000") = 


! 
leeneneenennneceneerensennenennecrerectereceerecterennerententnenerecneteets 
if 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS URESERVED. 


> ad sd td 8 ed 


MEUM OO BNAUFSUN 2 OOOVNOAUES WN “OODNOUNES WN 


BAAMANA SARIN NITION 2 3 3 
NO AE GO OO NAVE WN 2 OOONOANE WN OOD NOU FUN MOOD NOUSE 


DL ab td et dd ds ts 8 8 tt 8 9D 
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i eeerereeeterereeeeeeeeeeerereereeereeeeeeeereneereneeeeeeeeeeeeeeneeeeeeeee 


1e¢ 


OFTWARE IS FURNISHED UNDER A ph ICENSE AND MAY pe SED AND TH THe 
OF suc NS 


HIS 

Y AND WITH 
CLUSION OF THE ABOV Ved NOTICE, THIS SOFTWAR ANY 

IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T 

i NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE oie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
fompokatiin. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


BA Mae ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
OFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: ACC, Account file dumper 


' Sereeeeeete*.2~= - 2 eS PeOPe2eGeoemes “ZF 2 ee e222 2®e28e2%2e 2° SOS 222222222222 8282828282820 See eee eeee > 


; enn 


This module contains utility routines used by the ACC facility. 


{ ENVIRONMENT: 


VAX/VMS operating system. unprivileged user mode, 


i AUTHOR: Greg Robert and Steve Forgey, January 1982 
{| Modi tied by: 


v03-003 stnedlty Mark Bramhall 11-May-1984 
Remove special -2 and -4 status code checks. 


v03-002 DAS0001 avid Solomon 12-Jan-1984 
Get ACCDEF .REQ ex SRC$, not MSRCS$. 


v03-001 rere Steve Forgey 05-Feb-1982 
t signai “end of file” errors. 


INCLUDE FILES 
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® 
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: REQUIRE "SRCS:ACCDEF'; ! Command ACC definitions 


¥4.0-74 
ACC. SRC 
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'MODULE ACCDEF( IDENT = ‘V04-000" ) = 


1 
ee gery tas tea in RY eee aaR os 
‘@ « 
ie COPYRIGHT ‘ ) 1978, 1980, 1982, 1984 8 * 
ie DIGITAL Eau PRENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
ie ALL RIGHTS RESERVED. e 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH of AGEN SE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS WAR Y OTHER ®* 
ie COPIES THEREOF MAY NO BF PROVIDED. OR OTHERWIS OnADe AVAILABLE TO ANY * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
ie TRANSFERRED. e 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. : 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
i 

i AE PT SEO A OT Re ET eR TE NS TR 


'o+ 
: FACILITY: ACC, Account file dumper 


i ABSTRACT: 


This file contains definitions of general applicability to 
the accounting facility 


i ENVIRONMENT: 


' 

' 

' 

' 

‘ 

‘ 

' 

: VAX/VMS operating system. unprivileged user mode, 
; AUTHOR: Greg Robert and Steve Forgey, January 1982 

; Modified by: 
' 
4 
' 
i 
' 
‘ 
' 
J 
' 
J 


MEW — 


i] 
i PROGRAM CONTROL 


v03-002 TRN0002 Tim Halvorsen Nénner r-1984 
Remove MOVE_QUAD macro, which now exists in UTILDEF. 

v03-001 —, ais Solomon 03-Jan-1984 
? Remove d shared jnessage definitions (CREATED ond 
1 EXISTS). “Change doc leret ton ssage codes from ACC ACCS_. 
\¢ literal for sume on re ndex. Add ACC$ TNVACERE 
1 at ow error code LIB INPSTRTRU on call to ACCS TNVACEREG. in 
13 GET_REPLY macro. 
1 
1g ' ee rveescanrtoarsn we wt nerermrwerwwoeeroe ener e mre cerer Zw rz err e ws ewer wows eT en ZDe wre werwewrwroesZe woe es ee + 
1 
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7 R ' i SWITCHES, ee 

> ROl8S 1 "EXTERNAL GENERAL 

: OR 1 1 RONERT ERNAL SWORD *RELATIVE); 

: ROW? 1 

: ROWS 1 PSECT 

; \ | CODE= CODE, 

3; ROWS] 1 PLIT= CODE 

: ROI 2 1 OWN= DATACADDRESSING_MODE (LONG_RELATIVE)), 

; ' i GLOBAL= DATA; 

: ROWS 1 

: ait } : 2S PS ST SF BOO BeBe KE BOOB eB DODO EB OES Deore Mem re a De tre eS ene Swe Se Se & © Ow om ow wits mati 
> ROW3B 1 i INCLUDE FILES i 
Roto 4 EI PEA A LENT Pi CF TE ILL ELIOT NT POD H 
; note} 1 3 

: OR 196 ; LIBRARY ‘SYSSLIBRARY:STARLET'; ! VAX/VMS common definitions 

: Rolee 1 REQUIRE “SHRLIBS:UTILDEF'; ' Common VMS/DEVELOPMENT macros 
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: Commonly used definitions for VMS modules written in BLISS 
: Version: *v04-000' 


angi mat wigs Ypres meine pT 
ie 

‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

= ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copice 
'@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE wy > were THE 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sort WARE OR OTHER 
te COPIES THEREOF ae NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


a 
® 
® 
® 
te 
® 
+ 
® 
® 
® 
ie TRANSFERRED. © 
® 
* 
® 
® 
® 
® 
® 
® 
t 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. oePORaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIB1 
!@ SOFTWARE ON EQUIPMENT WHICH I 
i 

L eceaciendeusneennueennnenanenteennensesneenocteonenennedeeusensonsonneniece 


LiTY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


ee 


ABSTRACT: 
i This is the common require file for any module written 
in BLISS 


q 
' 
i 
| ENVIRONMENT: 

; VAX/VMS operating system. 
AUTHOR: Tim Halvorsen, Feb 1980 
MODIFIED BY: 

' 
' 
' 


v03-001 MHB0127 Mark Bramhall 5-Apr-1984 
Added the MOVE_QUAD macro. 
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1 
} ; Equated symbols 
1 . 
1 2 nea = 1, ' boolean true 
1 alse = 9. ! boolean false 
1 ok = 1, ' success return code 
1 error = §: ' error return cod 
quad = 8; ! quadword allocet on definition 


Define structure type for VMS structures 
STRUCTURE 
bblock Co, p, s. e; nj = 

n 

(bblock+o)<p,s,e>; 


MACRO 
move quad (src, dst) = ! Move a quadword 


GIN 
(dst)+0 = .(srcd< >; 
(dst)+4 = fereh ts 3 : 
ENDE; 


a ot a a es th 


HARCOUN 


CRO 
Gooce ipser fF = 
UPLIT (XC 
UPLIT BYT 


mo 


cro 
own ~Gescipter {] = ! Gen 
“BBLOCK (8) INITIAL (ZCHARCOUNT 
UPLIT BYTE (% 
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CRO 
return_if_error(command) = 
BEGIN 


status; 
peetus = command; 
IF NOT .status 


RETURN .status; 
END; 


0 
signal_if_error(command) = 
onBESINT 
LOCAL 
status; 


tatus = command; 
F NOT .status 


ee ee ee ee ee ee ne ne ee ee ee ee ey 


a 1F-senrtgee 25:57:05 WiNsHT BlfesctZ vesgere? Page 
THEN 


ee 
2 
= 


MR BEGIN 
MR SIGNAL(.status); 
MR R TURN Status; 
RR END; 
END2; 
:, 
R ! Macro to implement a function (f) of the avscene 9 oyersay seve that 
8 ' maps the var oys qver ty cougts uch that arithmet omparis ong of the 
R ' mapped values ( (severity) yield a order of precedence that is 
R : intuivitvely acceptable: 
R ! 
® ERROR NAME OLDVAL NEWVAL 
R ! F (SUCCESS) --> 
ne ' F (INFORMATIONAL) --> 
R ! F (WARN amine? -e> 
RO ! F (ERR --> 
RO F (SEVERE ERROR) 4 ==> 
no CRO 
MRO27 severity level (status) = 
MR BEG 
MR LOCAL notes BBLOCK CLONG); 
MR code = 


us; 
gcoge cstssv _severity) - (4 * .code Csts$v_success]) + 3 


CRO 
ETE EDECLRRED 
ZIF XDEC ED auor E ZQUOTE cl Soret iz) 
DECLARE ZQUOTE % he cliSprefix; %FI 
MACRO ctisorett x= soot tn ZQUOTE 
veabhers 1) on 
cliSexterna "ianateeimaeell 


cliSexternal_loop[name) = 
INAME (c L7Spre i aanet UNSIGNED (8)2; 


MACRO 
Sext ternal. Literal(symbol) = 

4 NOT ZDECLARE (symbol) ZTHEN EXTERNAL LITERAL symbol 
ZIF aL Seern GTR 1 ZTHEN : ZREMAINING ZFI; 2FI 
$s 
eke: 

= 

AR fab_devidev_bit) = ! Access FABSL_DEV bits of FAB block 

SBYTEOFFSET(T bst dev) 
SBITBOSITION CRHARE devSv_' edev_bit)),1,02%; 


ee ee ee ee eee eee’ 


! SSHR_MESSAGES = a macro which defines facility-specific message codes 


aE 
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Ww 
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1Peseon19te 35:51:05 VARSHT Bt tgerSz MegoTHe acy. 
which are based on the system-wide shared message codes. 

SSHR_MESSAGES( name, code, (msg,severity), ... ) 


where: 
s the name of the facility (e.g., COPY) 
eoas, ‘8 the “corresponding fa ‘4 tity c 8a 701 0:84. 103) 
‘msg th 2 name of pre ared nessoge, fe. 7 ccm 
severity’ s the desired message severity sgt - 0, 2) 


MACRO SHR ifthe FACILITY_NAME, FACILITY CODE ) = 
CARERS IDS( FACILITY_NAME, FACILITY CODE, ZREMAINING ); %, 


SHRSMSG_IDS( FACILITY NAME, FACILITY CODE) C VALUE 3 = 
SHRSMSG_CALC( FACILITY_NAME, FACTLITY_CODE, TREHOVE (VALUE) ) %, 


SHRSMSG CALC( FACILITY NAME, ha -CODE, MSG_ID, SEVERITY ) 
ZNARE (FACILITY "gf yMSG_1D) = ZNA ARE ("SARS *,MSG_ID) + FACILITY. CODE*65536 + 
SIF BDECLARE Dd¢ NAME(S STSSK." SEVERIT 


THE E oe éRI 
ZELSE SEVERITY Fins 
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; ROFe8 1 
; RO 1 LIBRARY ‘SYSSLIBRARY:TPAMAC'; ! TPARSE macros 


A 
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eeeeeeneo eemecsteoe emt ean ne 2c rece wt wos eee wacoee 


i DEFINE EXTERNAL REFERENCES i 


i Seer re ZOO 22222 ee Se ww Ss we eS oe oD PSPOBP 2S Se SHS STS TSQWSSsSZ SBD OSSD S BSWSVMTB SZ AQSeEe Bera sn ene + 


EXTERNAL LITERAL 


ACCS_INVACCREC, 
ACCS-TOTAL, 
Atte MERGE. 


ACC ~1NPUT 
ACCS-TITLEfRUNC; 


EXTERNAL ROUTINE 


ADD_SYMBOL, 
ALLOCATE 


BOODWODODODODOOOOMW 
aie 
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=I PRAHA 
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Invalid accounting record format 
otals se ected/rejected message 
“Merge phase beginning’’ message 
File agnerounyes message 

Title truncation warning 


Add a qyabot to a symbol table 
Gets v a memory 
Determine high watermaris 
Local signal processor 
Extended binary addition 
Converts decimal to binary 
Converts hex fo binary 
Converts *scii to binary time 
Gets days otnge epoc 
Does wildcarding and stickiness 
Converts charater $e integer 
Searches keyword Lists 
Extended precision subtract 
Converts pines time to ascii 
Formatted ascii output 
Library FAO routine 
Library parse routine 
Signals svenenee and error messages 
Lookup a symbol in a symbol table 
Establish qualifer maps 
$ up output fabs, rabs 
Build os and release te sort 

on routine for every symbol 
Dispatch ny es routines 


Clean etc. 
anitigt re sort routines 
SORT32 record interface routine 


Fetch a sorted record 

Initiate merge processing 
Appends strings 

Compares two strings 

ponereaee a Aes 

Exteect eft ustified substring 


g 
ng negator 
Strip treicing garbage 
Summation hen control loop 
Converts times 


CACC. SRCJACCDEF .REQ;1 


pase 
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TRANSLATE -SIATUS. ! Looks status messages 
WRITE_BAR_GRAPH, ' Output bar graph 

URIS RINRRY ! Output a binary record 

WRITE SUMMARY, ! Output summary at end of file 
WRITE _TOTALS; ! Output totals at end of program 


9 
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| mencncncccccccccccnncccccnccceccnccenccccccccccccccecccccccccccccccccccccccces 
i DEFINE INTERNAL MACROS | 
| sooetehisadendiinhanasiecdhiaiaieninniaeenniiianhanmie idbeesneienabapinetameeinteeanatd ; 


MACRO 


‘COMPARE QUADWORD VALUES-- 

; Macro to compere two Spceers porugs using the user supplied 
operator. This macro is somewhat inefficent if the supplied 
operator is EQL or NEQL since the expansion becomes (in part): 


! 

1 

' 

: IF Q1 EQL Q2 THEN IF Q1 EQL Q2 THEN TRUE ELSE FALSE 

However the complier may remove this inefficeny through optimization. 
] 
! 


DDD 
WAP 


uw 


This macro works better for values that are close to one another as 
it does the equality check et the high order words first. This 
macro could be improved by 


nspecting the supplied operator and 
generating a tailored macro. 


COMPARE _QUAD (Q1, OPER, Q2) = 


ba a a tt ws 


NOUS UN (“OOONAOULS WN — 


= Q1: VECTOR Fg -LONG : 
= Q2: VECTOR [2,LONG); 


-AC1] EQL .6C1] THEN .ACO] OPER .BC0O) ELSE .AC1] OPER .B{1) 


A) Macro to describe a string 

B) Macro to generate a quadword string descriptor 

C) Macro to generate the address of a string descriptor 
D) Macro to abbreviate last macro 


— 


33332232832333333233ssssSSSS32332333 


em ee ee ee ee a a a ed a ad od = 8 dd td dt 


PRIMDESC CC] = SCHARCOUNT (ZSTRING (ZREMAINING)) 
UPLIT (ZSTRING (ZREMAINING) )&, 
INITDESC CJ = BBLOCK CDSCS$C_S BLN} 
5 NITIAL (PRIMBESC (ZREMAINING))2, 
ADDRDESC C] = UPLIT (PRIMDESC (ZREMAINING))2, 
¢ AD C = ADDRDESC (ZREMAINING)2, 
re : 
4 ' FIELD REFERENCE MACROS -- 
r : Define macros to reference fields. 
44 
45 KEY_W_TYPE = 0,0,16,0%, ' Sort key type 
4 KEY_W_ORDER = 2,0,16,02. ! Sort order 
4 KEY_W_POS = 4,0,16,0%, ! Item position 
4 KEY_W LENGTH = 6. 16,02, ! Key lengt 
4 SORT_TYPE = 0,0,16,0%, ! Sort key type (binary/char etc) 


vou=000 Hboseo-t9ge Babi. “SBsdbouasBscacc\ saczacever.neo;1 "2% (43 


SORT DESC : +892 -Q8- } Address of item descriptor 


ontrol string address 
Sout tdesc (0), length 


Sbuf fd Sese 
ZIF amet 111 GTR ZTHEN , ZREMAINI 
$$buf fdesc 
Ht 


esultant 
utter. Be, 
NG 


3 1 

: R : LENGTH ! Max. Length of item in bytes 

: OR 1 

ERO 

: R g 1 { SIGNAL RETURN -- 

; R 8 } ; Signal the given arguments and then return the first parameter. 
: R 1 : 

3 MR 1 Signal_return (status) () = 

: AR 1 . GI 

> MR 1 mal (status, Zremaining); 

3 ROGGE} i return (statuss; 

; ROGES : 

AM 

> ROG69 1 ' 

8 nos? 1 i PERFORM MACRO - 

; ROcre } This renenes the RETURN_IF_ERROR macro to be the PERFORM macro. 
: ROG7S 1 

: moar } PERFORM (COMMAND) = RETURN_IF_ERROR (COMMAND), ! wee HACK 
Be 

: R078 1 

3 6 1 

3 80 1 ! 

3 Be 1 EXPAND FAO STRING 

3 § 1 : Expand an FAO directive and yeild the address of a descriptor 

; R048 } } of the resultant buffer. 

: RO4G8S 1 

: MR 1 XFAO (DESC) = 

a a 

; MROS 1 OE SE RNAL ROUTINE ,bssssrs,, shee i, She hs i (GENERAL); 
3 aA et | 1 LOCAL $$buffer @] 

3 mR 91 tOCAL $Sbuf fdesc: caster al 4 ; 

: MROGOS 1 $$buf fdesc = 512: ! Initialize descriptor length 
: 3e ! $$buf fdesc £9} = ssbutter: ! Initialize descriptor address 
; AR 1 signal_if_error (lLib$sys_fao ( 

; 38 gnal_ y 

; 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

; 1 


2 3 
SRroNSSsE 


vos 
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FUP 
SFEPRRALALAMGAD ERE EE REESE 
wr MEV" OOOBNOUS WO wr 


rc 


3202222222333333233333232232 


up 


DO OAS MO Dio 


AONE 


—_ 


USI 


a a a a a a ad td ot td 2 ed = od ed wd = 4 
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XFAOL (DESC, LIST) = 


BEGIN 
EXTERNAL pout ine aarti ey 3 RESSING_MODE (GENERAL); 
: ec 


LOCAL $$buffe Vv r byteJ; 
LOCAL SSbut faesc: vector L2, Lonel: 
$$buf fdesc = 512; ! Initialize descriptor length 
$$buf fdesc £9} = $$buffer; ! Initialize descriptor eddress 
signal_if_error (Lib$sys_faol ( 
esc ! Control string address 
Sbuffdesc (0, ' Resultant length 
buffdesc, ! Buffer descriptor 
pret ! Arguement List 
$$buffdesc 
ENDZ, 


CLI PARSING MACROS -- 
Determine if a command Line entity is present or get its value 


set shane) esas = 
EXTERNAL ROUTINE CLISPRESENT: ADDRESSING_MODE (GENERAL); 
CLISPRESENT (DESC) 
ENDZ, 
PRESENT seen ane) = 
EXTERNAL QUALIFIERS: BITVECTOR (64); 


sQUALIFIERS CQUAL_NUMB 
ENDZ, 


oer VALUE: ADDRESSING_MODE (GENERAL); 


I 
ISGET_VALUE (AD (STRING), DESC) 


' 
{ATTRIBUTE DEFINITIONS 


BOLD = SCRSM_BOLD% 
REVERSE = SCRSA-REVERSES, 
BLINK = SCRSM~BLINK 
UNDERLINE = SCRSM"UNDERLINES, 


iSET OUTPUT MACRO -- 


s 


vou=000 1Soseo-t944 B32bi82  VOSSEEnGASSScacc’sataacever.neo;1 "8% (43 


. H This macro establishes an output stream through the screen siahoons 
R . 
~ SET us ne FILENAME, USERSUB, ARGUEMENT, PREVIOUS) = 
MR EXTER ROUTINE CRSS Y =pureuts ADDRESSING_MODE (GENERAL); 
MR SIGNAL IF ER RSSET-OUTPUT ( 
MR tTF NULL STREAM) EIEN ZELS FILENA ZF, 
mR Z1F L Cust ) ZELSE FILENAME erie 
MR He NULL (CUSERSUB erwen ZELS ty sue ZF I, 
MR IF LL (ARGUEMENT) THEN QO ZELSE ARGUEMENT ZF I, 
AR ZF BML, CPREV ouUS) ZTHEN O ZELSE PREVIOUS 2FI 
7 ENDZ, ; 
7 
~ 
1 i SCREEN MACRO -=- 
: This macro invokes the screen package to determine output 
Fe i characteristics. 


' 
SCREEN_INFO (BUFFER) = 
BEGIN 


EXTERNAL git SCRSSCREEN_INFO: AD eeaat ie MODE (GENERAL); 
tA a wIF_ ERROR (SCRSSCREEN_INFO (BUFFER)); 


222222 
3899995 
wm 


SESSS 


ee em a ee ee ke ed td a od td ed = = a = 2 


SCREEN (ARG) = 
BEG 


94 IN 
95 EXTERNAL SCREEN. CHAR: BBLOCK CSCRSK_LENGTH) 
MR 396 . SCREEN_CHAR 
mROS9 ZIF ZIDENTICAL (ARG, FLAGS) ZTHEN SCRSL_FLAGS %F1 
298 IF ZIDENTICAL (ARG, WIDTH) ZTHEN SCRSW-WIDTH 2F I 
MROS IF ZIDENTICAL (ARG, LENGTH) § XTHEN SCRSW"PAGESIZE %FI 
MRO600 ZIF ZIDENTICAL (ARG, TYPE) ZTHEN SCRSB-DEVTYPE XFI 
R060! ] ENDS, 
Roe0S 
RO6O ' 
RO605 iSET CURSOR == 
NA06 ' 
ROC 
MRO6OE SET_ ee COLUMN) = 
EXTERNAL ROUTINE SCRSSET_CURSOR: ADDRESSING_MODE (GENERAL); 
SIGNAL IF _ERROR (SCRSSET“CURSOR (LINE, COLUAN)) 


iser SCROLL 
Establish a scrolling region 


eet scneus (TOP, BOTTOM) = 


wr-bob ibs Sep-19be S2:c0rse — “SasbbouadBscaccrsacaAccoer.rea;1 "8% (46 
Sa tee ROUTENE SER $$ f.$¢ROLL (ADDRESSING MODE (GENERAL) ; 


aIF mene GTR 1 ZTHEN , SFI 
OTTOM)) 


B 
Zz 
NAME 


{ERASE SCREEN -- 


2382 DVL DH VD PVDVDVDODDLLLLT 


5 ERASE_PAGE (LINE, COLUMN) = 
EXTERNAL ROUTINE CSERSERASE_PAGE: ADDRESSING_MODE (GENERAL); 
SIGNAL_IF_ERR (SCRSERASE PAGE ( 
965 xTF ENULL (LINE) ZTHEN 1 1 ELSE LINE %FI, 
9640 IF ZNULL (COLUMN) ZTHEN 1 SELSE COLUMN XFI 
0668 ENDZ, 
064 
R0644 
0645 ; 
§ iERASE LINE-- 
eet] ' 
R 
wR0650 ERASE_LINE (LINE, COLUMN) = 
MRO651 BEGIN 
be EXTERNAL ROUTINE SCRSERASE_LINE: ADDRESSING MODE (GENERAL); 
SIGNAL IF ERROR (SCRSERASE-LINE (LINE, COLUAN)) 


NOUNS 


‘WRITE TO SCREEN -- 
Output a string to the screen with associated attributes at 


indicated cursor position. Do not append carriage control. 


DESC, LINE, COLUMN, ATTR) = 


NAL_ROUTINE SCRSPUT_SCREEN: ADDRESSING_MODE (GENERAL); 
I age (SCRSPUT-SCREEN ( 


NE. 
LUAN, 
F ZNULL (ATTR) XTHEN O XELSE ATTR 2FI 


WRITE_AT 


a a a a a a a tk aaa a a ed a a ad = = td od ts 8 = = 0 = 2 a a 8 2 8 a te 


unite LINE TO SCREEN -=- 
Output a string to the screen with associated attributes, 


UI 1Soseon19te 25:54:05 VARSIT attgecd2 vasOc742 acy, Page I? 


DE : scroll the indicated number of LINES, and append a carriage return. 
+; ° 

U6 

068 WRITELLINE (DESC, LINES, ATTR) = 

06 XTERNAL ROUTINE SCRSPUT_LINE: ADDRESSING_MODE (GENERAL); 
068 STGHALALf PERROR (SCR PUTTLINE ( - ves 
0686 iF ENULL (LINES) ZTHEN 1. ZELSE LINES $FI, 

0687 i1F NULL (ATTR) STHEN O ELSE ATTR 3FI 


St: 


WRITE FAO STRING TO SCREEN -- 
Write a STRING to the screen at the given Line and 
column with no attributers after first processing it 


899 
. 244 through FAO. 
mR 701 WRITE_FAO_AT (DESC,LINE,COLUMN) = 
i WRITE_AT ( 
XFAO (DESC 
tIF ZLENGTH GTR 3 XTHEN , ZREMAINING %FI 
LINE, © 
COLURN, 
71 se 
my ' 
R at i GET INPUT 
714 ’ 
715 GET_REPLY (REPLY, PROMPT, LENGTH) = 
MR rig BEGIN 
mRO71 EXTERNAL ROUTINE SCRSGET_SCREEN: ADDRESSING_MODE (GENERAL); 
71 EXTERNAL LITERAL 
A L18$_INPSTRTRU; 
7 LOCAL 
i STATUS; 
7 ZIF ZNULL (REPLY) ZTHEN 
7 LOCAL SsTENP 
7 T MPbESC VECTOR (2); 
7 SSTEMPDESC 9) = 4; 
mR i STEMPDESC = $$TEMP; 


FI 
STATUS =_SCRSGET SCREEN ( 
ZIF ZNULC (REPLY) ZTHEN SSTEMPDLSC ZELSE REPLY 2FI, 


Sete Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se See Gee Se Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se SeGeS SeGeSe es Ge See ee Ge Ge teteaese 
22323333. 
BSESEEE =f=f-t. 
wm 


ek Bd ad a ad = 8 2) 8 8 td 2 a a a a a. ts 


LENGTHS 
IF NOT .STATUS AND ( STATUS NEQU LIBS_INPSTRTRU ) 


rc 


ui} 


mh Hosen 1944 33:20:92 “SBSEEDBASSS rae c"GaCacCeper reas: 29% <8 


LOCAL STATUS; 

IF NOT (STATUS = LIBSLOOKUP KEY (KEY, TABLE, RESULT)) 
THEN SIGNAL_RETURN (MSGS$_SYRTAX, 1, KEY); 

' 


; THIS RENAMES THE SBYTEOFFSET MACRO TO BE SBOFF FOR BREVITY 


ae 


SBOFF (arg) = SBYTEOFFSET (arg)%; ! Make a shorter name 


' SS 2222 S22SSSSSS2S222822822 SSS SSW eS Se SSH S28 Se SO Se BOS SS ew SS Ow wo ww we ee ee oe ew ee ee ee 4h 


DEFINE INTERNAL STRUCTURES 


i SSS SSS 2S 2S SSS SSS SS SSS S SSSVSSSSSSSSSSSSSSSSSSSSSSSSSSSSISSVSSSOSSSOSeS Se ee e222 e222 22202202 > 


3; AR 1 THEN 

3; WR 1 BEGIN 

3; AR 1 SIGNAL( .STATUS ); 

3; AR 1 RETURN .STATUS; 

3; MR 1 END; 

; «RO? 1 ENDZ, 

3; (OR t 1 

; RO742 1 

3; RO745 1 ! 

3; RO74Q 1 'SET AND FLUSH BUFFER 

; rR oe? : ! 

; WR ms 1 SET_BUFFER (BUFFER) = 

3 MRO748 1 BEGIN 

3 mRO749 «1 EXTERNAL ROUTINE SCRSSET_BUFFER: ADDRESSING_MODE (GENERAL); 
3; MRO? 1 SIGNAL_IF_ERROR (SCRSSET_BUFFER (BUFFER)) 
3 7 1 ENDZ, 

3;  RO7 $ 1 

3 MRO753 1 PUT_BUFFER (BUFFER) = 

3; MRO7S4 1 BEGIN 

3 mrO755 1 EXTERNAL ROUTINE SCRSPUT_BUFFER: ADDRESSING_MODE (GENERAL); 
3: MRO? § 1 SIGNAL_IF_ERROR (SCRSPUT_BUFFER (BUFFER)) 
$ Rot 1 ENDZ, 

3 RO? : 1 

3 RO? 1 

3 RO760 1 

3 th 1 

: OR 166 1 ! 

; kRO765 1 ‘LOOKUP MACRO -- 

: ithe) 1 ! This macro invokes Lib$Slookup_key and, if the lookup fails, 
$ 765 1 : signals the user with the status and the failed value and 
3; RO? 1 ' returns to the caller. 

3 - i ; ! 

; MR ? LOOKUP (KEY. TABLE. RESULT) = 

3 4RO77 ' EXTERNAL ROUTINE LIBSLOOKUP_KEY: ADDRESSING_MODE (GENERAL); 
3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

8 1 

3 1 

3 1 

3 1 

3 1 


BBz22S32228 
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15-Sep- -8255$DUA2 arate sae dac coer. REQ;1 (4) 
1 ' ' 
} : DEFINE MESSAGE CODES 
} SSHR_MESSAGES (MSG,159, ! COMMON 1/0 AND MISC. MESSAGES 
1 ' geeeeeeee Reeeeaeeaeaeaeee Reeeeeeeeeeeeee 
1 ! * NAME * * SEVERITY * * DESCRIPTION * 
; ' geeeeeree geeeeeeeeeesr eereeeeerererese 
1 (SEARCHFAIL. ERROR), ’ ~Error oy searching for file 
1 (OPENIN ERROR). ! Unable open or connect to input 
1 (READER, RROR) . i rror wh le reading input 
1 (CLOSEIN, RROR), ' -Unable to close output 
: (OPENOUT, RROR). : ~Unese ° ereate, open, or connect 
y utpu 
1 (WRITEERR, ERROR), ! Error while weseing Oy output 
1 (CLOSEOUT, ERROR) ! <Unable te close output 
i (SYNTAX, SEVERES, i -Parse failure 
1 © 
1 


Vousb00 ise sp-19be S2:a0:%e — “SSsdSoUAdscacc’Sacaacever.neo;1 2% 89 


' See nent n oes eens ee te eee ewan mmo e ne Dew ewe on en EDR OBB AS BeOS eB eR ERE TSE DEBS Seweah 
i § 
; EQUATED SYMBOLS 


' MCB EEE SB r eer aD BOE BeBe Oe EBB ODBEBDEOBEBTeSBeBocanr snes Es eTeaBVonaSosseosenaonaan } 
LITERAL 


{FLAGS AND MISCELLANEOUS VALUES -- 


COLUMNS_PER = GROUP = Bar graph column grouping Logie 

REC_PREFIX = 8 Size of data pref zed to record 

ACCSK_UNKNOWN = 0, Reserve the value 0 for unknown types 
GATOR = ‘e', ! Define List negator charater 


‘Qua FIER NUMBERS 
ties “~y bitnumbers for qualifers (also used as symbol table index 
7 thw df for summation). 


OWNE 
OUTPUT 
PRIOR 
5 faa 
REJECTED 


! See /REPORT parsing 


EMPORIUM OOOOOOOO0CO 
II = ONAUE WN O OONOAUL WN OOO NAMNEWN HO 
ese @seeeee#esesese#se#e#e#s#e#eees#+sesefesesesese$s#sts+#8s* 8s #® #s# ®# ®#®*# @#®*# *® © @® @ 


ee ee ee ee ee ee ee ee ee en ee ee ee SE SS 


o 


SUMMATION_TABLE = 63, ! Must be different than above numbers. 


Voueod 19-00-19 CHU Pm TTES nT es rete TST ECR ane 


: 1 

3 1 : 

3 1 iSUMMATION TYPES <= 

3 1 These numbers describes the various gusset ion rules for fields 

; ; ! in accounting records when /SUMMARY is invoked 

3 1 SUM_TYPE_ADD = Q, : hee A gre addition 

; 1 SUM_TYPE-ADDX = 1, i Extended onguor d addition 

3 1 SUM_TYPE_PEAK = 2, i IncFenen om +X. recording 

3 1 SUM_TYPE_INCR = 35, i athe r Pine dees 

$ 1 SUM_TYPE_TYPE = 4, i ores type metches 

3 : SUM-TYPE-ELAP = 5, i Summar A. connect time 

3 1 SUM_ENT_TYPE = 9. ! Type of summation entry 

3 1 ENT_Al = 1, ; Address or other v $} 

3 1 SUMLENT_BSIZE = ¢° ! Accumulation bucket size in longwords 
3 1 SUM_ENT_ = 3, ' Address of FAO directive 

3 1 SUM_ENT_HDR1 = 4, ! Address of ist he na header 

3 ; SUM_ENT_HDR2 = 5, ' Address of 2nd column header 

3 } :; 

3 1 iMAXIMUM TABLE SIZES -- 

3 1 : Specify the maximum number of entries the user can make in qualifier 

3 : : value Lists for /SORT and /SUMMARIZE. 

: 1 

3 1 MAX_DEFAULT = 30, ! Default maximum 

3 1 = = MAX_DEFAULT, ! Maximum number of /SUMMARY values 
; 1 MAX_REPORT = MAX_DEFAULT, ! Maximum number of /REPORT values 
3 1 MAX_SORT = 10; ! Sort keys -- sort package Limit 


vA 


SSLSBF 
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UTILITY 1$-sep-1 4 VAX-11 Bliss-32 V4.0-7 3 
Voetdoo Fee ets re St eS tod a 
UNDECLARE WRITE BINARY; 
GLOBAL ROUTINE WRITE_BINARY (BUFFER, RAB) = 


23S 


VEU OODNAULS WR “COONS WHO 


OWEN 


—~ 
NO 


! Functional description 


This routine accepts a pointer to a buffer and writes 
the buffer to an output stream in binary format. 


' 
' 
i] 
! 
' 
Input parameters 

BUFFER = address of an input record buffer 
4 

1! 

! 


bey tp eer PP) 


the size of the record is stored. in the second 
word of the buffer 


RAB = address of output rab 


rab: ref bblock, ! Pointer to rab 
buffer: ref bblock; ! Describe the input buffer 
LOCAL 
desc: vector (2, long); ! Temporary string descriptor 
If .rab eql 0 then return true; ! Exit immediately if no output 


{INITIALIZE THE 


RAB 
tore the buffer address and length in the RAB. 


rab Crab$l_rbf] = .buffer; ' Store buffer address in RAB 
rab Crab$w_rsz] = -buffer Cacc$w _msgsiz); ! Store buffer size in RAB 


ae 


{WRITE TO FILE --- 
Output the buffer via RMS. 


Perform (Sput ( ' Call RAS with 
rab = .r ! record stream identifier 
err = loo. "iiananaial i error action routine 


PADMA 


=O ODN NEW" O ODNAULS WIN OOO 


PRP PPIPOPIPIPINONNPOPIPUPININIPIPIPUPIPNINNIPIPIPIPINIIII 8 a at dt at tt te 
-- w * . . . . . . 
mn 
ao 
a 
2 


Be Se Se Ge Ge Fe Ge Ge Ge Se Se Se Se Ge Ge SH Se Ge Ge Fe FF Ge FHSS Ge Fe SF Ge Ge BH Se Ss Ss Ss Ss Ge SF Ss Se Se SH SHS4 Ss Se SH Se SH S5 G5 Ss SH SS ee 
Roch ARO a2 oO vebepeolhelepel els] 
RUNVS Sere nrunv =oOSUwse AR AWVoOOe Genk ooo 


eh 0 ke a et a = ot — 4 — — = a as 9 — 4 = 4 — 5s 4 


return true; 
ND 
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HEReOcHOML FH:GD:8§  YMRCAWBMMSHEZ Ne °sLtBurauiry.osash@™” 
\v04-000\ 
ACCS_INVACCREC, ACCS. TOTAL 


ASEH ed tata tmr™ 


 2OODODOVOOOozZo 
“+qANO-OCO,M vs 

o £ 

xz=<-+oPp 


IT De Ot 0 be eh ee TD 


OCS, SHOW RECORD 
RT, SORSINIT_SORT 


SORSSORT_MERGE 
ASCOMPARE 


<3443=4 +0000 
SUSE Soi 


mr (DD DDD D DD 


RIZE 
> ate aiatait 


RA 
INARY, WRITE SUMMARY 
OTALS, SYSSPOT 


CODE ,NOWRT ,2 
aire BINARY, Save nothing 


As, at 
1$ 


08 
04 


como onao°o-9o"- 


3; Routine Size: 46 bytes, Routine Base: CODE + 0000 


NO PAEAPEXPEAMADN MAASAI BPP PPLE 
VSSSELFSALERISSSLSALANAS SELES GEES LSESSIEGFUNLSSO VE 


et ee ke ek a a dd ed dd td td td ed = dd 


~“ 
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UNDECLARE STRIP_NEGATOR; 
GLOBAL ROUTINE STRIP_NEGATOR (TARGET) = 


1 =o 
i 
; Functional description 


This routine is called to etre List negators. If he pity 
character of the string of nted to by the descriptor is 
negator character then 

return TRUE else return FALSE 


! 
{ 
‘et that character from the str ae and 
] 

: Input parameters 

TARGET = Address of a descriptor 
Output parameters 

If the item 1s Ba at return FALSE 
1 

1 

q 


Else return T 
Any errors encountered are RETURNed immediately. 


target: ref bblock Cdsc$k_d_blnj;! Describe te input parameter 


‘TEST FIRST CHARACTER -- 
If its te negator character then strip the character and 


return false. 
Uibsteh Cdsc8u zlengthd neq 0 ! If string is_non-null 
and it ps - ar (.target) eql negator ! = and char(1) = negator 
en B 
ate right - target, .target, Zref(2)); ! = then strip it off 
return false; ! = and tell the user 


we true; 


ENTRY STRIP_NEGATOR, Save R2 


35 f me SUBL2 #4, SP 
MOVL TARGET, R2 
TSTW © (R2) 
BEQL=Ss18 


§urmuty. 832; i 


voe~000 1S] ags 7:52:98 DISKSunGMaSteRscaceeskeSuriLity.e32:1%" (3 


000000006 90 ; ‘ ee a. + LIGSICHAR 
1 BNE 
2 4004 8F BB ! PUSH é a AchS. $P> 
000000006 00 : rB CALL ag, STRSRIGHT 
4 1 a BRB 2$ 
50 1 B? 18: Rey #1, RO 
50 ps 28: CLRL = RO 
4 RET 


; Routine Size: 52 bytes, Routine Base: CODE + 002E 
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1 
1 
1 
1 
1 
1 
) 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


UNDECLARE STRIP_TRAIL; 
GLOBAL ROUTINE STRIP_TRAIL (DESC) = 


Functional description 
This routine is called to strip garbage from the end of a string. 


Wn — 
—> 2 a 


Input parameters 


uw 


DESC = address of a descriptor of the string 


i 

' 

' 

i 

! 

! 

: Output parameters 
: The byte count in the descriptor is decremented by the 

; number of bytes of trailing garbage. Garbage is defined 
: as NULLS, TABS, and SPACES. 

' 


LESELLLES 


desc: ref bblock Cdsc$k_d_binj; ! Address of a descriptor 


decr ptr from (.desc Cdsc$a_pointer] + .desc Cdsc$w_length] - 1) 
to (.desc Cdsc$a_pointer]) 


if .(.ptr)<0,8> eql 0 
or .(.ptr)<0,8> eql : 
or .(.ptr)<0,8> eql °* ' ! ~— 
then desc Cdsc$w_length] = .desc Cdsc$w_length] - 1 
else exitloop; 


do 
' NULLS 
' TABS 


return true; 
END; 


BE a a a a et a a ns a st a sd 8 kn ss st ts 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


BNA WN 9 OONAUE WN (OQ OOBNAUE WN (“OVOrou 


0004 .ENTRY STRIP_TRAIL, Save R2 : 1011 
1 04 AC 06 VL DESC, “RI > 1036 
4 al p ROVE 4(R1S, R2 ; 
1 A MOVZWL (R1), RO ; 
ADDLe Re. RO ; 
6 1$: iste (PTR) 1039 
09 1 C PTR), #9 > 1040 
20 i PAP srr), #32 ? 1041 
1€ BNEQ «O48 ; 


Vou=bb8 1o}ee-1944 TiSdi88 MMS bUWRAAR PERS CAEe SheSuriuity.es2:4°™ 
By Boose $8; eee 
| ae | 


9 4$: MOVL 
C RET 


; Routine Size: 45 bytes, Routine Base: CODE + 0062 
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: : } } UNDECLARE TRANSLATE_STATUS; 

3 i } ! GLOBAL ROUTINE TRANSLATE_STATUS (EXIT_STATUS,DESCRIP) = 

: 21 e+ 

; 1 1 Functional description: 

; 5 1 ; ii This routine will return the text as re be ee, “ee a given exit status. 
: 4 1 8 72 If the status cose has no text assoc feted th it, return @ routine 
: é } : : status value of SSS_MSGNOTFND, and the text ‘<no text>’’ in DESCRIP. 
. i . 

5 : : Input: 

; \ ! } EXIT_STATUS - a longword containing the exit status 

3 1 5 i Output: 

; 5 1 1 DESCRIP - address of a quadword ata yo that points to the 
$ 1 1! buffer to receive the message text. Note that the 
3 5 i 1! size field of the descriptor will petlect the actual 
: ! } : message Length. 

: 1 1 i-- 

3 1 1 

; 240 1 BEGIN 

: re 1 MAP 

3; 26 1 exit_status : REF bblock CLONG), 

: 2446 1 descrip : REF BBLOCK Cdsc$c_s_binj; 

HEHE Bom 

; "i \ no_text_msg : initdesc ("<no text>"); 

; 26 108 LOCAL 

: ? ; : status : bblock CLONG); 

; 108 ' 

3 § ! : ‘ements THE EXIT STATUS --- 

3 255 108 

3 56 P 105 status= (S$getmsg ( : Cott message translator with 

; 25 P 109 msg = .exit_st message code 

3 28 P 109 msglen = descr? p tasebe, Length], =$GETM G returns length here 

2 $2) : bufadr = .descri : address of work buffer desc 

3 261 109 ' 

3 $6 109 ! If the status code returned by SGETMSG 

: o? \ : was SSS_MSGNOTFND, then return the ‘no text’ message. 

> 265 109 

; 64 ! irs -Status EQL ss$_msgnotfnd 

; 1 "BE 

3 1 CH OVE ( .no_text_msg CdscBw_length] ! Length 

3 9 1 -no_te ata os g fascbeceo ointerd, i Source 

: e7 1 *gescrip™ tase : Dest i net veadress 


UBILARY iiodeo-t9ge 3 


2:33 ebUntnASfenccAce sacSuriuity.e32:1°% «as 


3 11 : 
; i 1 gescrip taseSu. Length? = .no_text_msg Cdsc$w_length); 
: 275 11 . 
, an 11 RETURN . 
; 38 111 aye sy 
.PSECT DATA,NOEXE,2 
00000009 00000 NO_TEXT MSG: ; 
00000000" 00004 “ADDRESS P.AAA F 
-PSECT CODE,NOWRT,2 
F -BLKB. 1 
00 00 00 3 74 78 65 74 20 6F 6E 3C $0880 P.AAA: ASCII \<no text>\<0><0><0> ; 
.EXTRN SYSSGETMSG 
O1FC 000 .ENTRY TRANSLATE E SSTATUS, Save R2,R3,R4,R5,R6,R7,.RB ; 1051 
58 00000000" FF 3 0 MOVAB NO_TEXT_M F 
E F p mova #15, =(SP) + 1093 
08 AC OD VL 5 bSerie R6 ; 
26 DD PUSHL R F 
06 =A DD i PuSHt EXIT STATUS : 
000000006 9 F 17 CALLS #5, SYSSGETMSG ; 
D IE MOVL RO. STATUS ; 
00000621 8F p ] cMPL StAtUs, #1569 + 1100 
04 66 0 8B 68 2 A MOVCS NO_TEXT_MSG, ano TEXT_MSG+4, @4(R6) + 1105 
é 8 MOV Nor TEXT™ =HSG, (ROY : 1107 
1$: MOVL STATUS, > 1110 
4 RET : 1111 


3; Routine Size: 55 bytes, Routine Base: CODE + 009C 
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: 11) } UNDECLARE LOG_FILENAME; 

; 1 GLOBAL ROUTINE LOG_FILENAME (RMS) = 

: We yi 

: Wi Functional description 

; 11 :' This routine is called to signal a message to 

; 11 1! the user based on an error code and file name 

3 i } } that are imbedded in the passed parameter. 

; 1 ¢ ! Input parameters 

; 1126 i RMS = Either a FAB or a RAB 

; 11 1! RABSL_FAB = pointer to fab block (If input was a RAB) 
s 11 1! FABSL_NAM = pointer to name block 

3 11 1! RABSL_CTX = error message to be used (If input was a RAB) 
3 1130 1! FABSL_CTX = error message to be used (If input was a FAB) 
HBT 

; 90 " § Output parameters 

; 4 1135 1: Expanded error messages to user 

: 11 1! Status is RETURNed 

; 304 11 1! 

3 05 i 3 ! leoce 

; 307 1140 2 BEGIN 

Bg 

: 310 1148 rms: ref bblock; ! Define block format 
: 312 1143 

; ig 1146 2 LOCAL 

3; 314 114 fab: ref bblock, ! Pointer to FAB block 

3; 315 1343 nam: ref bblock, ! Pointer to NAM block 

3 1$ 114 rms_sts, ! Temporary primary status holder 
; (31 1150 rms_stv, ! Temporary secondary status holder 
3 8 1151 rms ctx, : Temporary user context holder 
; 31 11 § status: bblock fhong). ' Local “‘catch git status return 
3 : 1% ? desc: vector (2, long); ! Temporary string descriptor 
i $56 He 

3 32% 1189 § iser up vawues -- 

; 5 11 ‘ Fetch the primary and secondary status values and the user 

3 $ 11 ! context field from the RAS ptructure. If a RAB was passed 

3 i" then fetch the address of the associated FAB. 

; 11 

3 i 4 If .rms Crab$b_bid] eql rab$c_bid then ! If this is a rab 

; 3 1165 ab = .rms Crab$i_f bi); 

3 11 rmas_sts = .rms [rab$l_sts); 

3 11 rms_stv = .rms Lrab$l_stvJ; 

3 5 11 ras_ctx = .rms Lrab$l_ctxJ; 


0 by 
«SRCJUTILITY.B32; 


VOus000 1$-}enct94s 33:83) — iScdUmGnaSfenccace shcSuriuiry.e32:0°%° «ds 


ND 
else of 
b = .rms; 


= .fab Cfab$l_namj; ! Fetch address of NAM block 


{CHECK FOR EOF == 
§ End of file errors are not reported by this routine. 


If this is a rab 

- and error is end of fi 
and this was a read ca 

don* t Awad to report it 


If .rms Crab$b_bid] eql rab$c_bid 
and .rms_sts eql rms$_eof 
and .rms_ctx eql = $- reedert 


Le 
a 
then return rms$_eof; 


FUSION E® 
DOGO AF UII OOD NONE WN Oto ae 


—_ 


ireven af E NAME - 

Find the best eh ym available. Start with the 
resultant name; if not preeeny try for the expanded 
pores ot if we Suan then settle for the original 


ct ht at a ws as a ts 2 a a 1 a a a a a te 


Ronononorons 
RRMA SOW NAAR HOSS NE ARM OSS EARL O DR OI ODOUR UII OD 


If openyneett rsl] neq 0 then IF result string nonblank, 
gett: -nam(nam$b_ Ao ! then display it 


descli enamC(nam$l“rsa 
else, it. anenCnenso_ esl] neq 0 then ! Or if expanded name nonblank 
act: -nam(nam$b_ es | ! then display it 
desc -nam(nam$\—esa 
else BEG 
dese 0) = .fab{fab$b_fns); ! Otherwise, use original 
pee 1) = .fablfab$l—fnal; ! name string in FAB 


7 

'NOTIFY THE USER -- 

: qnetruct an error meseoee using the user supplied context (CTX) 
; eld ong the RMS suppl ed primary (STS) and secondary (STV) 

: status fields. Signal it to the user. 


ce ee cee ce em mc em ee me a ee ee ee ed ed od od dd od = 


Se 


SSSSSSSS 


3; Routine Size: 


st 


signal (.rms_ctx, 1 ot i 
Trmszstvs; 
return .rms_sts; 
END; 
og ce 
35 04 $ BY 
01 p $1 
» x HE 
33 of A 
AO D 
56 6 AO D 
See 
0001827A 8F 38 te 
009F10B2 &F os ? 
50 0001827A F 
03 ad H 
0B 1 
6E 93 AO 9A 
04 AE i 9 
0B Ad i 
oH OR BE 
uo § OR ON Be 
08 A oF 
DD 
, 4 
et ii 


133 bytes, Routine Base: CODE + 0003 


(Peden 196s G:61:05  yayeds tteees 


Oye ut an error message 
' with RAS error code 
! and secondary code 


! Pass on the status 


L96_FILENANE. Save R2,R3,R4,R5 
#8, SP 


rms, RO 
(RO), #1 


(RO), FAB 


WDD" @DWBVOD—-— DW 
PBVOFSN-~CeLOMESDM 
“DDO 


FAB 
RO), RMS_STS 
( os, RMS_STV 
d RMS ~ CTX 
3 


RMS_STS, #98938 
RMS_CTX, #10424498 
8938, RO 


; 


v4 
CAC 


0-74 p 3 
eosReSuriuity.e32:1°%" (a3 


Pete Se Se Se Se Se Se Ge Gee Se Se Ge Se Ge Se Se Ge Fe Se Se Ge Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se 


Vousb00 1B deont94s 23:88) — ScdUwGaASfenccAcesaeSuriuiry.eses0°% «dh 


at ed 


Fy ot ot ot ot ad ot nt nt 


A ab et Wb a ab 


MEUM —O OONOUESWN “OO ONOUS WN 


| alent lnaltte clink tek nk-aek-ek-tek- tek k_tee ek dk Se ke dee 


reer 


439 


ee a a ed ed at i a a = et ss a a a a as as a a 8 


MEW O ODNANES WN OVOOVNAUES HOON 


SSF GF SS BAI ES OE ESS FF EN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
yt OWN 


11 
1$-Fep-1964 28:51:95 vary? 
UNDECLARE MAP_QUALIFIERS; 
GLOBAL ROUTINE MAP_QUALIFIERS = 


Functional description 


This routine searches all possible quer tvrere and makes 
a bit mask of those that are present 


' 

1 

' 

Input parameters 
None 

Output parameters 
n 
! 


The mask is established 
Always returns success 


lonas 
BEGIN 


GLOBAL 


qualifiers: bitvector (64); ! global storage for mask 


qual_array: eo r Cqual count * 2) initial ( 


ieee 
! primdesc 


noes 
ented 4 


z2oc ant antl PO 


at 
Pr Cee MNCwOWO>> 


225 


(A 
(BA 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
primdesc : 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


-A+ANYMNYNDDwWoO VV 


primdesc 
primdesc 


teosheSuriuity.es2:1° 31 


11 
vou=000 Hho GHSL:05  YMsHABhteRZ ke Gurnciry.osash°%* cf 


; 460 1 § primdesc (TYPE), 

3; «4 1 ec (UIC 

3; 4 1294 3 

; 446 1295 

; 464 1 38 ! 

: 465 129 ! Establish a bit mask of qualifiers that are present 

: 288 1599. 5 

; 468 1300 Incra_ i to gual.count = 1 do qualifiers C.i] = get_present (qual_array C.i*2]); 
; 469 1301 qualifiers Cbar_graph) = 0; 

3 rh : § return true; 


.PSECT DATA,NOEXE,2 
00008 SUL EV TERS: 
00000007 00010 QUAL ARRAY: 
00000 9° ‘ADDRESS P.AAB 
elelelere «LONG 
00000000" a ge P.AAC 
000000 e 
olelelelete eADDRESS P.AAD 
000000 «LON 
10000000" eADDRESS P.AAE 
SADORESS P.AAF 
LONG 
.ADDRESS P.AAG 
LON 
.ADDRESS P.AAH 


uN «of 


o oOo 


00000004 
00000000' 


uw SS 


soc 
SFc 
= 


= 


: Py 

a ; 

NM e ot N 5 3 
10000000 ADDRESS P.AAI : 
HN00NNG LON 5 ‘ 
pn g008 — ‘ 
10000000" 900 “ADDRESS _P.AAK : 
0¢ HOO 103 ii é LONG 3 ; 
R080 08" 006 -ADDRESS PAL : 
Stitt ' 06 4 : 
000000" 8006 -ABDRESS. P. AAA 
10000000" if ADDRESS P.AAN : 
90000005, 4 ane ; 
lelelerererere Py 
10000006 “LONG 6 3 . 
10000000" ADDRESS P.AAP : 
10000008 LONG 8 ; 
RRR ER -ADDRESS P..AAG ; 
38008, : 7 
fant “ADDRESS PAAR 
10000000" ADDRESS P.AAS , 
NNODDDDE -LONG 8 ‘ 


32 V4.0-74 p 7 
Rechce sacSuTILity.e32:1°"" 


syne Bliss- 
DISKSVMSMASTE 


AAU 
P.AAV 
eADDRESS P.AAW 


«LONG 


P.AAT 


eADDRESS P 
- LONG 


P.AAY 
P.AAZ 
P.ABA 


eADDRESS P.ABB 


«LONG 


58308 


~PSECT CODE,NOWRT,2 


»ADDRESS_P.ABC 
eADDRESS P.ABD 


eADDRESS P.AAX 
«LONG 


-ADDRESS 
«LONG 
-ADDRESS 
«LONG 
- LONG 
«ADDRESS 
«LONG 
»ADDRESS 
«LONG 
»ADDRESS 
«LONG 


1386 


ge 
=Sep- 


VOTDOVOTOVOST OVO 
DOLvVVVv Ao cowwwwuu 


A 


A 
So 
v 
A 
A AA A A So A A 
o oo o ov ©& o 
AA V VV VA Vv AAVA Vv 
oo A AA Ao A SOAaom A 
AAVVY S&S OO A ov AS VVOV A SO 
SOAA VY VV So VA OV AZAVA SO VY 
vvoo A AA Vv AGOZAVAZACGCASO VZAA 
“s7iv Co oo 2“ OV>rZ-OoOa=VOoOV “~~ ~j1O 
eer" VY VVAAW VZ4REOVWw wv => A 
wr - £Z7SoOUW 4304 Feure7ro -” S&S 
+ FS ett PBA rh te Te tt Tea “we Vv 
O42 sZOrsaww at se =z WJjw- 
wuu Zui ww Ssee -——Ow> 2aaiacr-aw 
Vow MnZ5a ses ewww 0 Dwi > 
“£42400 52wWie = IE CW We a ee ed ee] 


PAA AAA AP AAO OOO AOA AOA AO AAA AAA OS 


NNAANAAANAVNMAHVWAWMAANMNMKWHNNWNNVNMUKWHMNNWVNNNWNWM 
i Soe Soe Se > > See > Se Sm Soe oe Soe Se Se Se > Se en oe oe oe Son Se Soe en So 
soeeeneteeeesesreneteeeeeezsnsteeseeenre*e#*e#es#nfee#8#8e#e# 


ROGRRN SOTTO SAL OBOCR OWE EOS OR 


LOL OES 


SOOSSOOOOOSCOOOOOOOOOOOOOSOOOOS 


ONION DODD EO WI. &_ IOI INT FT TUN 


i i i le ho i 


POVETVAN CNP IAT OO te te SF OILS oF 8 LUO OO 
SPF PF PDD FSF FFAS FF FNIFMNSI TNS 


PVIN DO UNNST OME CUR. SF TIT ONE OOWI ONT OM 
SPF PF PDS SSF TFN FFF ITNT INFN 


ee OI LIRR. QOS &_ PWN &. PT TF OOM 
SSF TNA TF FON SF FNS FNS FTF TNT TT TO 


SON RMI S ceeqvemem ses 
won $ 8B R suoneccusn ows 
SSBB S$ SB R SBsmsvnsss Ss 

sess 8 88 8 ssnssis 8 


~ENTRY MAP_QUALIFIERS, Save R2,R3 


-EXTRN CLISPRESENT 


000C 00000 


TTL 


50 52 


1¢ 


33 


3; Routine Size: 45 bytes, Routine Base: 


01 000000006 99 


RORIPROROTRD 
Oe RS MUM Ore 


e9-1984 Fibbi8g Peed SAAS FER cACe sacSuriuity.es2:1°%* cS 


MOVAB QUALIFIERS, R3 


CLRAL 

ASHL 

PUSHAL it dane ROJ 

CALLS CLISPRESENT 

INSV » I, #1, QUALIFIERS 
NCL 

CMPL #28 

BLEQY 

BICB #2, QUALIFIERS 

<p oem 


Wino 


yt at af af at at at we a 
wr 


eS SSSSSSSSS5S5 Sooo ODDS 
UN "OSHSNE AR WU SSO Look oo 


a a i a ek a tk a at a a 8 = a ss 8 8 


a st 


MEW OC OONOULS WN "OC OOVNOUS UN O0O 


er 


Fwn—O0o 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
MAP 
OCAL 
f 


11 
1S-benrt9ee 28:54:05 vaned) atiee=s2y 


UNDECLARE HANDLER; 

GLOBAL ROUTINE HANDLER (SIGNAL_ARGS, MECHANISM_ARGS) = 

' eee 

This condition handler gets control on any signalled 


condition in order te save the highest severity error 
to be returned by exit from the image. 


' 

' 

' 

' 

' 

' 

: signal_args = Address of signal argument List 
: mechanism_args = Address of mechanism argument List 
' 

' 

' 

' 

' 


i Outputs: 
WORST_ERROR is updated with highest severity error. 


BEGIN 


GLOBAL worst_error: initial (1); ! Holds worst error encountered 


signal_args: ref bblock, ! Address of signal argument List 
mechanism_args: ref bblock; ! Address of mechanism argument List 


L 
cond_code: long; ! Condition code (longword) 


cond_code = .signal_args Cchf$l_sig_name); ! Get condition code 

If .cond_code eql rms$_eof then return true; 

If severity_level (.cond_code) 

severity_level (.worsf_error ! If higher than watermark 
then worst_error = .cond_code or sts$m_inhib_msg; ! -then set new worst error 
ss$_resignal ! Continue signalling 


-PSECT DATA,NOEXE,2 


00000001 OO00F8 WORST_ERROR:: 
-LONG 1 


-PSECT CODE ,NOWRT,2 


001¢ -ENTRY HANDLER, Save R2,R3.R4 
4 00000000" EF 9 MOVAB WORST ERROR, R4 
: Ac D MOVL : GNAC_ARGS, RO 
6 AO D MOVL RO), ~COND__CODE 


V4.0-74 Pa 9 
ce saeSuTiLity.e32:1°"" «a 


"1 
$-Fen-1964 $F:0bi83 Ped wRAlSteRccace sacluriuiry.es2s1e” chs 
iye.t _CODE, #98938 ; 1337 


D G0E, CODE 1338 
a ie CoD ODE: RO ; 


0001827A = =8F 
50 


Ooo 
z 
= 


axmomeoes 


Bic 
ae ST ERROR, CODE 


mmEzee 
x<xOo 
4a<o 


ay: EOBE: 86 


CONN ooo NNe CO 


FMNOOOFOounWoown COOW 
MO fLOOfWOFOOW fw 
MmMMVv<<c hrOTO<< 


03 


, RO 
2 
268435456, COND_CODE, WORST_ERROR 


| 
: 


FOO MM LS BM NOOW HL VB MNOLON— 


COWIM $F DOOMMIOOOMMNIOIOIO—-o 


R R 
a0 RO 
Ri 

a 

# 


xr or 
cw 


«gong 


3; Routine Size: 94 bytes, Routine Base: CODE + 0251 


UII fPobeon ate 2:54:05 yateyt ats 
82 1328 8 Eldoon 

.EXTRN LIBSSIGNAL 
PSECT SUMMARY 
3 Name Bytes Attributes 
: CODE $87 NOVEC.NOURT, RD. EXE,NOSHR, LCL, REL, CON, 
: : "NOEXE.NOSHR, LCL. REL, CON.NO 


Library Statistics 


oe Dee oe Sy mbo ls mo ee Pages Process i ng 
File Total ioaded Percent Mapped Time 
$255$DUA28: CSYSLIBJSTARLET.L32;1 977 57 581 0:01.0 
mtiitinryt Hattie; TPAMAC.L 34 ‘3 0 6 14 80:00:14 


COMMAND QUALIFIERS 


Bl ules 


-32 V 


TERSEAC C.$ OSRCUUTILITY.832;1 ;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS:UTILITY/OBJ=OBJS:UTILITY MSRCS:UTILITY/UPDATE=(ENHS:UTILITY) 


ag 470 ogg + 469 data bytes 


; fun i ed T 246.6 
a 746. 
: Ei aeeoepu mia: 2i38 
| eee ae 225 

ry Us 134 pages 
; Conpt ation Complete 


age 3! 


NT CORPORATION — 


War vaxvuee va D PROPRIETARY 


VAX/VMS V4.0 


